Software of the Month Club 1996 June/Software of the Month Club 1996 June.iso/mac/Education/Extended Calculator II/Calculator programs/Simple draw prog

Text File | 1994-05-03 | 462b | 27 lines

TFont(20);
TSize(9);
FRect(5,5,15,15);
FOval(5,20,15,30);
text("QUIT",5,35,40,60,1);
m:=0;
while (m¡3);
    while(not(button));
    end;
    m:=int((VMouse+10)/15);
    x:=random(100,500);
    y:=random(100,200);
    s:=random(1,100);
    if (m=1);
        IRect(0,0,20,20);
        FRect(x,y,x+s,y+s);
        IRect(0,0,20,20);
    end;
    if (m=2);
        IRect(0,15,20,35);
        FOval(x,y,x+s,y+s);
        IRect(0,15,20,35);
    end;
end;